home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / dvlprstc.hqx / Developer Stack 1.3r / background_3837.txt < prev    next >
Text File  |  1991-04-30  |  11KB  |  499 lines
  1. -- background: 3837 from stack: in.3r
  2. -- bmap block id: 10061
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: XFCNs
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put (the number of this card - the number of first card of this background+1) into field "PageNumber"
  9.   set scroll of field description to 0
  10.   set scroll of field syntax to 0
  11.   put "XFCN" into field "type"
  12. end opencard
  13.  
  14.  
  15.  
  16. -- part 5 (field)
  17. -- low flags: 01
  18. -- high flags: 0004
  19. -- rect: left=3 top=3 right=37 bottom=286
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 0 / 0
  22. -- text alignment: 0
  23. -- font id: 2
  24. -- text size: 24
  25. -- style flags: 0
  26. -- line height: 32
  27. -- part name: Name
  28.  
  29.  
  30. -- part 6 (field)
  31. -- low flags: 00
  32. -- high flags: 4007
  33. -- rect: left=58 top=47 right=230 bottom=276
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 0
  37. -- font id: 3
  38. -- text size: 9
  39. -- style flags: 0
  40. -- line height: 12
  41. -- part name: description
  42. ----- HyperTalk script -----
  43. on mousewithin
  44.   --This uses the ART hypertext method to link to another card.
  45.   --It calls the HyperText function in the stack script
  46.   if selection is not empty then put HyperText(selection) into it
  47. end mousewithin
  48.  
  49.  
  50.  
  51. -- part 10 (field)
  52. -- low flags: 01
  53. -- high flags: 0002
  54. -- rect: left=460 top=14 right=32 bottom=488
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 1
  58. -- font id: 3
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: PageNumber
  63.  
  64.  
  65. -- part 7 (field)
  66. -- low flags: 00
  67. -- high flags: 0007
  68. -- rect: left=281 top=47 right=283 bottom=511
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 0
  72. -- font id: 3
  73. -- text size: 9
  74. -- style flags: 0
  75. -- line height: 12
  76. -- part name: syntax
  77. ----- HyperTalk script -----
  78. on mousewithin
  79.   --This uses the ART hypertext method to link to another card.
  80.   --It calls the HyperText function in the stack script
  81.   if selection is not empty then put HyperText(selection) into it
  82. end mousewithin
  83.  
  84.  
  85.  
  86. -- part 27 (field)
  87. -- low flags: 01
  88. -- high flags: 0004
  89. -- rect: left=283 top=3 right=37 bottom=436
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 65535
  93. -- font id: 3
  94. -- text size: 24
  95. -- style flags: 0
  96. -- line height: 32
  97. -- part name: type
  98.  
  99.  
  100. -- part 35 (button)
  101. -- low flags: 00
  102. -- high flags: A004
  103. -- rect: left=61 top=292 right=341 bottom=119
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 2 / 2
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: XFCNs...
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   if the optionkey is down then pass mouseup
  115.  
  116.   controlButton "XFCNs"
  117.  
  118. end mouseUp
  119.  
  120.  
  121.  
  122. -- part 36 (button)
  123. -- low flags: 00
  124. -- high flags: A004
  125. -- rect: left=124 top=292 right=341 bottom=182
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 2 / 2
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: XCMDS...
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   if the optionkey is down then pass mouseup
  137.  
  138.   controlButton "XCMDs"
  139.  
  140. end mouseUp
  141.  
  142.  
  143.  
  144. -- part 37 (button)
  145. -- low flags: 00
  146. -- high flags: A004
  147. -- rect: left=188 top=292 right=341 bottom=246
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 29007 / 29007
  150. -- text alignment: 1
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: Functions...
  156. ----- HyperTalk script -----
  157. on mouseUp
  158.   if the optionkey is down then pass mouseup
  159.  
  160.   controlButton "Functions"
  161.  
  162. end mouseUp
  163.  
  164.  
  165.  
  166. -- part 38 (button)
  167. -- low flags: 00
  168. -- high flags: A004
  169. -- rect: left=252 top=292 right=341 bottom=310
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 1060 / 1060
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: Scripts...
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   if the optionkey is down then pass mouseup
  181.  
  182.   controlButton "Scripts"
  183.  
  184. end mouseUp
  185.  
  186.  
  187.  
  188. -- part 39 (button)
  189. -- low flags: 00
  190. -- high flags: A004
  191. -- rect: left=317 top=292 right=341 bottom=375
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 27056 / 27056
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: Buttons...
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.   if the optionkey is down then pass mouseup
  203.   controlButton "Buttons"
  204. end mouseUp
  205.  
  206.  
  207.  
  208. -- part 40 (button)
  209. -- low flags: 00
  210. -- high flags: A004
  211. -- rect: left=381 top=292 right=341 bottom=439
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 22999 / 22999
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: Quick Ref...
  220. ----- HyperTalk script -----
  221. on mouseUp
  222.   if the optionkey is down then pass mouseup
  223.   controlButton "Quick Ref"
  224. end mouseUp
  225.  
  226.  
  227.  
  228. -- part 41 (button)
  229. -- low flags: 00
  230. -- high flags: A004
  231. -- rect: left=446 top=292 right=341 bottom=504
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 11645 / 11645
  234. -- text alignment: 1
  235. -- font id: 0
  236. -- text size: 12
  237. -- style flags: 0
  238. -- line height: 16
  239. -- part name: Full Index...
  240. ----- HyperTalk script -----
  241. on mouseUp
  242.   if the optionkey is down then pass mouseup
  243.   controlbutton index
  244. end mouseUp
  245.  
  246.  
  247.  
  248.  
  249. -- part 42 (button)
  250. -- low flags: 00
  251. -- high flags: 2004
  252. -- rect: left=3 top=47 right=90 bottom=50
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 11645 / 11645
  255. -- text alignment: 1
  256. -- font id: 0
  257. -- text size: 12
  258. -- style flags: 0
  259. -- line height: 16
  260. -- part name: Return
  261. ----- HyperTalk script -----
  262. on mouseUp
  263.   if the optionkey is down then pass mouseup
  264.   visual effect iris close
  265.   go first card
  266. end mouseUp
  267.  
  268.  
  269.  
  270. -- part 43 (button)
  271. -- low flags: 00
  272. -- high flags: 2004
  273. -- rect: left=3 top=88 right=131 bottom=50
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 14767 / 14767
  276. -- text alignment: 1
  277. -- font id: 0
  278. -- text size: 12
  279. -- style flags: 0
  280. -- line height: 16
  281. -- part name: About...
  282. ----- HyperTalk script -----
  283. on mouseUp
  284.   if the optionkey is down then pass mouseup
  285.  
  286.   visual iris open to gray
  287.   visual iris close to black
  288.   visual iris open to gray
  289.   visual iris close
  290.   go background information
  291. end mouseUp
  292.  
  293.  
  294.  
  295. -- part 44 (button)
  296. -- low flags: 00
  297. -- high flags: 2004
  298. -- rect: left=3 top=129 right=172 bottom=50
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 29114 / 29114
  301. -- text alignment: 1
  302. -- font id: 0
  303. -- text size: 12
  304. -- style flags: 0
  305. -- line height: 16
  306. -- part name: Back
  307. ----- HyperTalk script -----
  308. on mouseUp
  309.   if the optionkey is down then pass mouseup
  310.  
  311.   visual barn door close to black
  312.   visual barn door open
  313.   pop card
  314. end mouseUp
  315.  
  316.  
  317.  
  318. -- part 45 (button)
  319. -- low flags: 00
  320. -- high flags: 2004
  321. -- rect: left=3 top=170 right=213 bottom=50
  322. -- title width / last selected line: 0
  323. -- icon id / first selected line: 1011 / 1011
  324. -- text alignment: 1
  325. -- font id: 0
  326. -- text size: 12
  327. -- style flags: 0
  328. -- line height: 16
  329. -- part name: Home
  330. ----- HyperTalk script -----
  331. on mouseUp
  332.   if the optionkey is down then pass mouseup
  333.   visual dissolve to black
  334.   visual dissolve
  335.   go first card of home
  336. end mouseUp
  337.  
  338.  
  339.  
  340. -- part 46 (button)
  341. -- low flags: 00
  342. -- high flags: 2004
  343. -- rect: left=3 top=211 right=254 bottom=50
  344. -- title width / last selected line: 0
  345. -- icon id / first selected line: 1000 / 1000
  346. -- text alignment: 1
  347. -- font id: 0
  348. -- text size: 12
  349. -- style flags: 0
  350. -- line height: 16
  351. -- part name: Open Stack
  352. ----- HyperTalk script -----
  353. on mouseUp
  354.   if the optionkey is down then pass mouseup
  355.   put "Please select a stack to open..."
  356.   domenu "open stack..."
  357.   hide message
  358. end mouseUp
  359.  
  360.  
  361.  
  362. -- part 47 (button)
  363. -- low flags: 00
  364. -- high flags: 2004
  365. -- rect: left=3 top=252 right=295 bottom=50
  366. -- title width / last selected line: 0
  367. -- icon id / first selected line: 17343 / 17343
  368. -- text alignment: 1
  369. -- font id: 0
  370. -- text size: 12
  371. -- style flags: 0
  372. -- line height: 16
  373. -- part name: Launch Application
  374. ----- HyperTalk script -----
  375. on mouseUp
  376.   if the optionkey is down then pass mouseup
  377.   visual venetian blinds to gray
  378.   visual venetian blinds to black
  379.   visual venetian blinds to gray
  380.   visual venetian blinds
  381.   go to background "Mini Hyperstation"
  382. end mouseUp
  383.  
  384.  
  385.  
  386. -- part 48 (button)
  387. -- low flags: 00
  388. -- high flags: 2004
  389. -- rect: left=3 top=293 right=336 bottom=50
  390. -- title width / last selected line: 0
  391. -- icon id / first selected line: 21786 / 21786
  392. -- text alignment: 1
  393. -- font id: 0
  394. -- text size: 12
  395. -- style flags: 0
  396. -- line height: 16
  397. -- part name: Menus Off
  398. ----- HyperTalk script -----
  399. on mouseUp
  400.   if the optionkey is down then pass mouseup
  401.  
  402.   if menubar("┬⌐1988SDrazga") then hide menubar else show menubar
  403. end mouseUp
  404.  
  405.  
  406.  
  407. -- part 49 (button)
  408. -- low flags: 00
  409. -- high flags: A003
  410. -- rect: left=60 top=234 right=256 bottom=179
  411. -- title width / last selected line: 0
  412. -- icon id / first selected line: 0 / 0
  413. -- text alignment: 1
  414. -- font id: 0
  415. -- text size: 12
  416. -- style flags: 0
  417. -- line height: 16
  418. -- part name: Install
  419. ----- HyperTalk script -----
  420. on mouseUp
  421.   if the optionkey is down then pass mouseup
  422.   put installres(XCMD,field "name") into it
  423. end mouseUp
  424.  
  425.  
  426.  
  427. -- part 50 (button)
  428. -- low flags: 00
  429. -- high flags: A003
  430. -- rect: left=60 top=259 right=281 bottom=179
  431. -- title width / last selected line: 0
  432. -- icon id / first selected line: 0 / 0
  433. -- text alignment: 1
  434. -- font id: 0
  435. -- text size: 12
  436. -- style flags: 0
  437. -- line height: 16
  438. -- part name: Resource Mover
  439. ----- HyperTalk script -----
  440. on mouseUp
  441.   if the optionkey is down then pass mouseup
  442.   ResCopy
  443. end mouseUp
  444.  
  445.  
  446.  
  447. -- part 51 (button)
  448. -- low flags: 00
  449. -- high flags: 2000
  450. -- rect: left=437 top=11 right=33 bottom=459
  451. -- title width / last selected line: 0
  452. -- icon id / first selected line: 1014 / 1014
  453. -- text alignment: 1
  454. -- font id: 0
  455. -- text size: 12
  456. -- style flags: 0
  457. -- line height: 16
  458. -- part name: Prev
  459. ----- HyperTalk script -----
  460. on mousestilldown
  461.   global scrolling
  462.   put true into scrolling
  463.   goPrev
  464. end mousestilldown
  465.  
  466. on mouseup
  467.   global scrolling
  468.   if not scrolling then goPrev
  469.   put false into scrolling
  470. end mouseup
  471.  
  472.  
  473.  
  474. -- part 52 (button)
  475. -- low flags: 00
  476. -- high flags: 2000
  477. -- rect: left=488 top=11 right=33 bottom=510
  478. -- title width / last selected line: 0
  479. -- icon id / first selected line: 1013 / 1013
  480. -- text alignment: 1
  481. -- font id: 0
  482. -- text size: 12
  483. -- style flags: 0
  484. -- line height: 16
  485. -- part name: Next
  486. ----- HyperTalk script -----
  487. on mousestilldown
  488.   global scrolling
  489.   put true into scrolling
  490.   goNext
  491. end mousestilldown
  492.  
  493. on mouseup
  494.   global scrolling
  495.   if not scrolling then goNext
  496.   put false into scrolling
  497. end mouseup
  498.  
  499.